home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pull55.zip
/
PULLSHEL.ZIP
/
PULLSHEL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-08-24
|
1KB
|
40 lines
{ =========================================================================== }
{ PullShel.pas - A shell program to develop any ver 5.5, 08-24-89 }
{ application of pull-down menus. }
{ Copyright (c) 1987-1989 James H. LeMay, All rights reserved. }
{ =========================================================================== }
{ R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ } { TP4 directives }
{$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-} { TP5 directives }
{$M 16384,14000,14000 }
program PullShell;
uses
Crt,Qwik,Wndw,Pull,
PullWork,Goof; { You MUST includes these units! }
procedure DisplayScreen;
begin
WWrite ( 1, 1,'PULLSHELL v5.5 Multi-level Pu'+
'll-down Menus Copr 1989 J H LeMay');
ShowTopLine;
SetWindowModes (PermMode);
MakeWindow (3,1,CRTrows-3,CRTcols,White+BlueBG,LightGray+BlackBG,DoubleBrdr,
Window1);
SetWindowModes (0);
WWriteC ( 1,'This is my first pull-down menu program');
end;
begin
{ Qsnow := false; }
InitPull (LightGray,false); { <<-- Be sure you do this!! }
DisplayScreen;
GotoKeyDispatcher; { <<-- All keyboard entries go through here! }
AccessWindow (Window0);
WClrScr;
WGotoRC (CRTrows,1);
SetCursor (CursorInitial); { Restore start up cursor }
end.